BBS in a Box 5/BBS in a Box -Volume V (BBS in a Box) (April 1992).iso/Files/Hyper/F/FilmPro.cpt/Call Sheets/background_2689.txt

Text File | 1988-04-17 | 18.8 KB | 868 lines

-- background: 2689 from stack: in
-- bmap block id: 3822
-- flags: 4000
-- background id: 0
-- name: Call Sheets Bkgnd.
----- HyperTalk script -----
on openstack
  hide bkgnd field "fix screen"
end openstack

on closestack
  if the freesize of this stack > 0.15 * the size of this stack then
    set cursor to 4
    domenu "compact stack"
  end if
end closestack




-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=253 top=25 right=58 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Keywords
----- HyperTalk script -----
on mouseUp
  play "harpsichord"
  show background field "hidden keywords"
  answer "New Keywords will replace old ones" with "Cancel" or "Okay"
  if it is "okay" then
    ask "Enter Keywords for Call Sheet"
    put it into background field "hidden keywords"
  end if
  hide background field "hidden keywords"


end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=310 top=28 right=57 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: find
----- HyperTalk script -----
on mouseUp
  play harpsichord
  domenu "find..."
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=355 top=25 right=56 bottom=390
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  play "harpsichord"
  answer "Sort all cards according to:" with "Title" or  "Job #" or "Date"
  if it is "Title" then
    sort by first word of bkgnd field "Title"
  end if


  if it is "Job #" then
    sort numeric by first word of bkgnd field "Job #"
  end if

  if it is "Date" then
    sort  dateTime by first word of bkgnd field "date"
  end if




end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0003
-- rect: left=406 top=30 right=54 bottom=435
-- title width / last selected line: 0
-- icon id / first selected line: 10610 / 10610
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dial
----- HyperTalk script -----
on mouseUp
  beep

  answer "Please go to the appropriate stack first."





end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=241 top=308 right=331 bottom=268
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect scroll right fast to black
  visual effect scroll right fast
  go to prev card
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=274 top=308 right=331 bottom=303
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect scroll left fast to BLACK
  visual effect scroll left fast
  go to next card
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=212 top=28 right=56 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Button Help
----- HyperTalk script -----

on mouseup
  push this card
  set cursor to 4
  visual effect barn door open
  go to stack "FilmPro Help"
end mouseup



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=451 top=25 right=58 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print
----- HyperTalk script -----
on mouseUp
  play harpsichord
  answer "Proceed with Printing?" with "This Card" or "This Stack" or "Cancel"
  if it is "This Card" then
    ask "Name of Production Company or Unit"
    if it is empty then exit mouseup
    else if it is not empty then
      put it into bkgnd field "print title"
      set lockscreen to true
      set cursor to 4
      show bkgnd field "fix screen"
      show bkgnd field "hide left"
      show bkgnd field "hide top"
      show bkgnd field "hide right"
      show bkgnd field "hide bottom"
      hide bkgnd button "return"
      hide bkgnd button "prev"
      hide bkgnd button "next"
      hide bkgnd button "print call sheet"
      show bkgnd field "print title"

      domenu "print card"
      hide bkgnd field "hide left"
      hide bkgnd field "hide top"
      hide bkgnd field "hide right"
      hide bkgnd field "hide bottom"
      hide bkgnd field "fix screen"
      show bkgnd button "return"
      show bkgnd button "prev"
      show bkgnd button "next"
      show bkgnd button "print call sheet"
      hide bkgnd field "print title"
      put empty into bkgnd field "print title"
      set lockscreen to false
    else if it is "This Stack" then domenu "Print stack..."
  end if
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=3 top=217 right=257 bottom=41
-- title width / last selected line: 65535
-- icon id / first selected line: -15743 / 49793
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Crews Stack Button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push this card
  visual effect dissolve  to white
  visual effect dissolve
  go to stack "Crews"
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=2 top=262 right=295 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 9761 / 9761
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Locations Stack Button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push card
  visual effect dissolve  to white
  visual effect dissolve
  go to stack "Locations"
end mouseUp




-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=0 top=59 right=96 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 2002 / 2002
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Client Stack Button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push this card
  visual effect dissolve  to white
  visual effect dissolve
  go to stack Clients
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=47 top=301 right=331 bottom=79
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: return
----- HyperTalk script -----
on mouseUp
  visual effect wipe left fast to black
  visual effect wipe right fast
  pop card
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=9 top=183 right=213 bottom=35
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: memos
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push this card
  visual effect dissolve  to white
  visual effect dissolve
  go to last card in stack memos




end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=2 top=140 right=177 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 18814 / 18814
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Call Sheets
----- HyperTalk script -----
on mouseUp
  beep
  answer "You are already in the Call Sheets stack."
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=2 top=104 right=134 bottom=38
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: jobs stack button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push this card
  visual effect dissolve  to white
  visual effect dissolve
  go to last card in stack Job File
end mouseUp



-- part 20 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=208 top=24 right=58 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hidden keywords


-- part 35 (field)
-- low flags: 80
-- high flags: 2001
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hidden memo


-- part 36 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=1 top=23 right=55 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: filmpro
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push this card
  visual effect dissolve to white
  visual effect dissolve
  go to card id 2844 of stack "FilmPro "
end mouseUp




-- part 37 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=4 top=300 right=334 bottom=40
-- title width / last selected line: 0
-- icon id / first selected line: 17343 / 17343
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Application
----- HyperTalk script -----
on mouseUp
  play harpsichord
  ask "Which application would you like to open?"
  if it is not empty then
    suspend
    open it
  else if it is empty then
    exit mouseup
  end if

end mouseUp



-- part 38 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=88 top=62 right=80 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Job #


-- part 39 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=228 top=64 right=82 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Title


-- part 40 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=409 top=64 right=81 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Date


-- part 41 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=46 top=96 right=187 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 11
-- part name: Cast
----- HyperTalk script -----
on mousewithin
  hide bkgnd field "hide left"
  hide bkgnd field "hide top"
  hide bkgnd field "hide right"
  hide bkgnd field "hide bottom"
  show bkgnd button "return"
  show bkgnd button "prev"
  show bkgnd button "next"
  show bkgnd button "print call sheet"
  hide bkgnd field "print title"
  put empty into bkgnd field "print title"
end mousewithin


-- part 43 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=193 top=96 right=188 bottom=243
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 11
-- part name: Cast Call


-- part 44 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=247 top=96 right=189 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 11
-- part name: Location


-- part 45 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=424 top=96 right=188 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 11
-- part name: Scene


-- part 42 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=47 top=200 right=302 bottom=187
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 11
-- part name: Crew


-- part 47 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=193 top=200 right=302 bottom=243
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 11
-- part name: Crew Call


-- part 48 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=247 top=200 right=302 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 11
-- part name: Location


-- part 61 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=44 top=0 right=25 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hide top
----- HyperTalk script -----
on mousewithin
  hide bkgnd field "hide left"
  hide bkgnd field "hide top"
  hide bkgnd field "hide right"
  hide bkgnd field "hide bottom"
  show bkgnd button "return"
  show bkgnd button "prev"
  show bkgnd button "next"
  show bkgnd button "print call sheet"
  hide bkgnd field "print title"
  put empty into bkgnd field "print title"
end mousewithin


-- part 49 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=424 top=200 right=302 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 11
-- part name: Scene


-- part 51 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=0 top=0 right=342 bottom=45
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hide left
----- HyperTalk script -----
on mousewithin
  hide bkgnd field "hide left"
  hide bkgnd field "hide top"
  hide bkgnd field "hide right"
  hide bkgnd field "hide bottom"
  show bkgnd button "return"
  show bkgnd button "prev"
  show bkgnd button "next"
  show bkgnd button "print call sheet"
  hide bkgnd field "print title"
  put empty into bkgnd field "print title"
end mousewithin


-- part 52 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=44 top=0 right=25 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hide top


-- part 53 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=206 top=24 right=58 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 24
-- part name: print title


-- part 54 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=500 top=22 right=336 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hide right
----- HyperTalk script -----
on mousewithin
  hide bkgnd field "hide left"
  hide bkgnd field "hide top"
  hide bkgnd field "hide right"
  hide bkgnd field "hide bottom"
  show bkgnd button "return"
  show bkgnd button "prev"
  show bkgnd button "next"
  show bkgnd button "print call sheet"
  hide bkgnd field "print title"
  put empty into bkgnd field "print title"
end mousewithin


-- part 55 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=43 top=303 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hide bottom
----- HyperTalk script -----
on mousewithin
  hide bkgnd field "hide left"
  hide bkgnd field "hide top"
  hide bkgnd field "hide right"
  hide bkgnd field "hide bottom"
  show bkgnd button "return"
  show bkgnd button "prev"
  show bkgnd button "next"
  show bkgnd button "print call sheet"
  hide bkgnd field "print title"
  put empty into bkgnd field "print title"
end mousewithin


-- part 62 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=107 top=307 right=329 bottom=221
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print Call Sheet
----- HyperTalk script -----
on mouseUp
  play harpsichord
  ask "Name of Production Company or Unit"
  if it is empty then exit mouseup
  else if it is not empty then
    put it into bkgnd field "print title"
    set lockscreen to true
    set cursor to 4
    hide bkgnd button "print call sheet"
    show bkgnd field "fix screen"
    show bkgnd field "hide left"
    show bkgnd field "hide top"
    show bkgnd field "hide right"
    show bkgnd field "hide bottom"
    hide bkgnd button "return"
    hide bkgnd button "prev"
    hide bkgnd button "next"
    show bkgnd field "print title"

    domenu "print card"
    hide bkgnd field "hide left"
    hide bkgnd field "hide top"
    hide bkgnd field "hide right"
    hide bkgnd field "hide bottom"
    hide bkgnd field "fix screen"
    show bkgnd button "return"
    show bkgnd button "prev"
    show bkgnd button "next"
    show bkgnd button "print call sheet"
    hide bkgnd field "print title"
    put empty into bkgnd field "print title"
    set lockscreen to false
  end if
end mouseUp



-- part 63 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: fix screen
----- HyperTalk script -----
on mousewithin
  hide bkgnd field "hide left"
  hide bkgnd field "hide top"
  hide bkgnd field "hide right"
  hide bkgnd field "hide bottom"
  show bkgnd button "return"
  show bkgnd button "prev"
  show bkgnd button "next"
  show bkgnd button "print call sheet"
  hide bkgnd field "print title"
  hide bkgnd field "fix screen"
  put empty into bkgnd field "print title"
end mousewithin